home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 2 / 64er_Magazin_Sonderheft_02_86-02_1986_Markt__Technik_de.d64 / listing 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  57 lines
  1. 1000 rem *** horizontale bewegung ***
  2. 1010 :
  3. 1020 :
  4. 1030 rem ** ausgabe programmeldung
  5. 1040 :
  6. 1050 print "[147]bitte warten";
  7. 1060 :
  8. 1070 :
  9. 1080 rem ** sprite-daten einlesen
  10. 1090 :
  11. 1100 for n = 896 to 958
  12. 1110 :   poke n,255
  13. 1120 next n
  14. 1130 :
  15. 1140 :
  16. 1150 rem ** sprite-steuerung
  17. 1160 :
  18. 1170 print "[147]";    :rem bilds.loeschen
  19. 1180 poke 2040,14  :rem datenzeiger
  20. 1190 :
  21. 1200 vic = 53248   :rem vic-baustein
  22. 1210 poke vic,64   :rem horizont. pos.
  23. 1220 poke vic+1,139:rem vertikale pos.
  24. 1230 poke vic+39,13:rem gruenes sprite
  25. 1240 poke vic+21,1 :rem sprite 0 ein
  26. 1250 :
  27. 1251 :
  28. 1252 rem rechts, dann links
  29. 1253 :
  30. 1254 for hp = 64 to 280 step 2
  31. 1255 :   sf = (hp > 255)
  32. 1256 :   poke vic,hp + (sf * 256)
  33. 1257 :   poke vic+16, sf * (-1)
  34. 1258 next hp
  35. 1259 :
  36. 1260 for hp = 278 to 66 step-2
  37. 1261 :   sf = (hp > 255)
  38. 1262 :   poke vic,hp + (sf * 256)
  39. 1263 :   poke vic+16, sf * (-1)
  40. 1264 next hp
  41. 1265 :
  42. 1266 :
  43. 1270 rem ** prog.ende nach tastendruck
  44. 1280 :
  45. 1290 get kp$
  46. 1300 if kp$ = "" then 1254
  47. 1310 :
  48. 1320 :
  49. 1330 rem ** register zuruecksetzen
  50. 1340 :
  51. 1350 poke vic+21,0 :rem ruecksetzung
  52. 1360 poke vic+39,0 :rem in umgekehrter
  53. 1370 poke vic+1,0  :rem reihenfolge...
  54. 1380 poke vic,0
  55. 1390 :
  56. 1400 end
  57.